module mars_orbit_const_mod

  implicit none

  ! Perihelion Sun-Mars distance (Mkm)
  real(8), parameter :: mars_rperi = 206.644574d0
  ! Aphelion Sun-Mars distance (Mkm)
  real(8), parameter :: mars_raphe = 249.228765d0
  ! Eccentricity (rad) 0.09341233048068207
  real(8), parameter :: mars_eccen = (mars_raphe - mars_rperi) / (mars_raphe + mars_rperi)
  ! Sol day at perihelion
  real(8), parameter :: peri_sol   = 485.6d0
  ! Viewed from Mars
  real(8), parameter :: mars_sol_per_mars_year_real   = 668.6d0
  real(8), parameter :: mars_sol_per_mars_year_model  = 669
  ! Viewed from Earth
  real(8), parameter :: mars_sol_seconds_real         = 88775.245d0 ! 24小时39分35.245秒
  real(8), parameter :: mars_sol_seconds_model        = mars_sol_per_mars_year_real * mars_sol_seconds_real / mars_sol_per_mars_year_model
  real(8), parameter :: mars_sidereal_day_seconds     = 88642.663d0 ! 24小时37分22.663秒
  real(8), parameter :: earth_days_per_mars_year      = 686.98d0

  real(8), parameter :: mars_sol_per_mars_year        = mars_sol_per_mars_year_model
  real(8), parameter :: mars_sol_seconds              = mars_sol_seconds_model

end module mars_orbit_const_mod
